This sample code shows the use of the View Object. Modify the following sample code to fit your needs.
Dim repWindow As CRPEAuto.Window
Dim repViews As CRPEAuto.Views
Dim repView As CRPEAuto.View
Private Sub Command1_Click()
'tests View.Close
Set repWindow = repViewObj.Parent
Set repViews = repWindow.Views
Set repView = repViews.GetItem(repViews.Count)
If repViews.Count <> 1 Then
MsgBox "Top view should close but window should remain open"
Else
MsgBox "Window should close - end of Close test"
CloseView.Visible = False
End If
repViewObj.Close
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |